home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1994 November / Cd Ware (Nro. 2) - Epimundo.iso / DOS / CM / HIDEUSER.ZIP / HIDEUSER.PPS < prev    next >
Encoding:
Text File  |  1994-04-07  |  1.9 KB  |  52 lines
  1. ;HideUser.ppe
  2. ;Ver. 1
  3. ;By: Francis "gorilla" Amato
  4. ;
  5. ;Changes Alias. Done to "hide" identity without the hassle of going thru 
  6. ;the whole "W"rite user thing.
  7. ;
  8. ;NOTE: ALIAS PSA MUST be installed. If not, the PPE aborts.
  9. ;
  10. ;I use it in my FLAMING base. Tho handles are used on my BBS, it breeds less
  11. ;badwill if the poster of a flame in that base remains unknown.
  12. ;
  13. ;You can, of course, use it in any base(es) you wish
  14. ;
  15. ;I display the text message hardcoded into this PPS. You might wish to
  16. ;change it. Up to you (as everything is with my user-friendly PPE's)
  17. ;
  18. ;INSTALL: Assign  the PPE in CMDLIST to whatever name you want. I call it
  19. ;(amazingly enough) ALIAS and put the keyword ALIAS on my menu screen for
  20. ;the flaming base.
  21.  
  22. string aliasname, yn
  23. getuser
  24.  
  25. ;Check and see if Alias PSA is installed. If not, end
  26. if (PSA(1)=1) goto OK
  27. end
  28.  
  29. :OK
  30. CLS
  31. println "@X07You can now enter an @X0FALIAS@X07. This `alias' will go into effect when"
  32. println "@X0F    @X07you enter an area that allows them. When you leave that area,"
  33. println "@X0F    @X07your `real' name is restored."
  34. println "You are probably already using a handle to call here. This `alias'"
  35. println "    is, in effect, a @X0FSECOND @X07handle."
  36. println ""
  37. println "You do @X0FNOT @X07have to choose an alias if you don't want one."
  38. println "You can only chose @X0FONE @X07Alias. That alias is active in @X0FALL @X07alias bases."
  39. println ""
  40. println "Currently, the only base you can use an alias in is the @X0FFLAMING @X07base."
  41. println "    You may not wish others to `know' who you are in that base."
  42. println ""
  43. println "Your @X0DCURRENT@X07 Alias is @X0D" , U_Alias
  44. println ""
  45. inputstr "Would you like to choose or change your alias (Y/N)",yn, @X0C, 1, "YN", Upcase
  46. if (yn="N") end
  47.  
  48. println ""
  49. input "@X0FALIAS @X07name (Enter=@X0FCURRENT @X07name) ",AliasName
  50. Let U_Alias=Aliasname
  51. putuser
  52. end